home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 21.zip
/
BS1 part 21
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf
/
rexx.lzh
/
BoxColors.pprx
< prev
next >
Wrap
Text File
|
1992-03-13
|
944b
|
36 lines
/*
@BBoxColors @P@ICopyright Gold Disk Inc. January, 1992
Set the text and fill colors of a box.
*/
address command
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
oldcolor = ppm_GetTextColor()
box = ppm_ClickOnBox("Click on box for color change.")
if box = 0 then exit
colorlist = ppm_GetColorList()
colorlist = substr(colorlist, pos('0a'x, colorlist) + 1)
color = ppm_SelectFromList("Select Fill Color..", 20, 5, 0, colorlist)
if color = '' then exit
tcolor = ppm_SelectFromList("Select Text Color..", 20, 5, 0, colorlist)
if tcolor = '' then exit
call ppm_SetBoxFrameData(box,color, color, ppm_GetLineWeight(), ppm_GetLinePattern(), 1)
call ppm_SetBoxFrame(box, 1)
call ppm_SetBoxTransparent(box, 0)
if upper(word(ppm_GetBoxInfo(box), 1)) ~= TEXT then exit
call SafeSetEdit.rexx(box)
call ppm_SelectBoxText()
call ppm_SetTextColor(tcolor)
call SafeEndEdit.rexx()
call ppm_SetTextColor(oldcolor)
call ppm_AutoUpdate(1)